home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / mcedit10.zip / HOURGLAS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-01  |  2KB  |  53 lines
  1. PROCEDURE hourglasMouse;
  2.  
  3. var
  4.   hourglasmasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   hourglasmasks[0,0] := $0000;    {0000000000000000}
  12.   hourglasmasks[0,1] := $0000;    {0000000000000000}
  13.   hourglasmasks[0,2] := $0000;    {0000000000000000}
  14.   hourglasmasks[0,3] := $8001;    {1000000000000001}
  15.   hourglasmasks[0,4] := $8001;    {1000000000000001}
  16.   hourglasmasks[0,5] := $8001;    {1000000000000001}
  17.   hourglasmasks[0,6] := $8001;    {1000000000000001}
  18.   hourglasmasks[0,7] := $8001;    {1000000000000001}
  19.   hourglasmasks[0,8] := $8001;    {1000000000000001}
  20.   hourglasmasks[0,9] := $8001;    {1000000000000001}
  21.   hourglasmasks[0,10] := $8001;   {1000000000000001}
  22.   hourglasmasks[0,11] := $8001;   {1000000000000001}
  23.   hourglasmasks[0,12] := $8001;   {1000000000000001}
  24.   hourglasmasks[0,13] := $0000;   {0000000000000000}
  25.   hourglasmasks[0,14] := $0000;   {0000000000000000}
  26.   hourglasmasks[0,15] := $0000;   {0000000000000000}
  27.  
  28. { Cursor Mask }
  29.  
  30.   hourglasmasks[1,0] := $FFFF;    {1111111111111111}
  31.   hourglasmasks[1,1] := $8001;    {1000000000000001}
  32.   hourglasmasks[1,2] := $D7EB;    {1101011111101011}
  33.   hourglasmasks[1,3] := $57EA;    {0101011111101010}
  34.   hourglasmasks[1,4] := $542A;    {0101010000101010}
  35.   hourglasmasks[1,5] := $5A5A;    {0101101001011010}
  36.   hourglasmasks[1,6] := $5DBA;    {0101110110111010}
  37.   hourglasmasks[1,7] := $5E7A;    {0101111001111010}
  38.   hourglasmasks[1,8] := $5E7A;    {0101111001111010}
  39.   hourglasmasks[1,9] := $5DBA;    {0101110110111010}
  40.   hourglasmasks[1,10] := $5BDA;   {0101101111011010}
  41.   hourglasmasks[1,11] := $566A;   {0101011001101010}
  42.   hourglasmasks[1,12] := $542A;   {0101010000101010}
  43.   hourglasmasks[1,13] := $D00B;   {1101000000001011}
  44.   hourglasmasks[1,14] := $8001;   {1000000000000001}
  45.   hourglasmasks[1,15] := $FFFF;   {1111111111111111}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.cx := 1;
  49.   regs.DX := ofs(hourglasmasks);
  50.   regs.ES := seg(hourglasmasks);
  51.   Intr(51,Regs);
  52. end;
  53.